home *** CD-ROM | disk | FTP | other *** search
/ Ham Radio 2000 #2 / Ham Radio 2000 - Volume 2.iso / HAMV2 / MISC / HCAL-27 / G5RV.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1997-01-28  |  3.6 KB  |  115 lines
  1. 10  'G5RV - G5RV Antenna - 22 DEC 95  rev.27 SEP 96
  2. 20  IF EX$=""THEN EX$="EXIT"
  3. 30  COMMON EX$
  4. 40  CLS:KEY OFF
  5. 50  COLOR 7,0,1
  6. 60  UL$=STRING$(80,205)
  7. 70  U$="####.##"
  8. 80  '
  9. 90  '.....start
  10. 100  CLS
  11. 110  COLOR 15,2
  12. 120  PRINT " G5RV MULTIBAND DIPOLE ANTENNA";TAB(57);"by George Murphy VE3ERP ";
  13. 130  COLOR 1,0:PRINT STRING$(80,223);
  14. 140  COLOR 7,0
  15. 150  GOSUB 670   'preface
  16. 160  PRINT UL$;
  17. 170  PRINT " Press number in < >to:"
  18. 180  PRINT UL$;
  19. 190  PRINT "   < 1 > Display G5RV diagrams"
  20. 200  PRINT "   < 2 > Design an open-wire feed line"
  21. 210  PRINT "   < 3 > Design an Inverted-Vee configuration"
  22. 220  PRINT
  23. 230  PRINT "   < 0 > EXIT"
  24. 240  Z$=INKEY$:IF Z$=""THEN 240
  25. 250  IF Z$="0"THEN CLS:RUN EX$
  26. 260  IF Z$="1"THEN 300
  27. 270  IF Z$="2"THEN CLS:CHAIN"openwire"
  28. 280  IF Z$="3"THEN CLS:CHAIN"invee"
  29. 290  GOTO 240
  30. 300  VIEW PRINT 3 TO 24:CLS:VIEW PRINT
  31. 310  GOSUB 340
  32. 320  GOTO 970
  33. 330  '
  34. 340  '.....diagram
  35. 350  R=4:C=14
  36. 360  LOCATE R-1,C+14:PRINT "TYPICAL G5RV CONFIGURATIONS"
  37. 370  'LOCATE R-1,C+14:PRINT STRING$(27,205)
  38. 380  COLOR 0,7
  39. 390  LOCATE R+ 0,C:PRINT "                                                      "
  40. 400  LOCATE R+ 1,C:PRINT " CALLDEFSNGSOUNDSOUNDSOUND 102'(31m) SOUNDSOUNDSOUNDDEFDBLCALL         CALLDEFSNGSOUNDSOUNDSOUND 102'(31m) SOUNDSOUNDSOUNDDEFDBLCALL  "
  41. 410  LOCATE R+ 2,C:PRINT " CALLDEFSNGSOUNDSOUND L SOUNDSOUNDDEFDBLCALLDEFSNGSOUNDSOUND L SOUNDSOUNDDEFDBLCALL         CALLDEFSNGSOUNDSOUND L SOUNDSOUNDDEFDBLCALLDEFSNGSOUNDSOUND L SOUNDSOUNDDEFDBLCALL  "
  42. 420  LOCATE R+ 3,C:PRINT " /SOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDBSAVE/BSAVESOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUND/    VARPTRSOUNDSOUNDDEFDBL /SOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDBSAVE/BSAVESOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUND/  "
  43. 430  LOCATE R+ 4,C:PRINT "          INSTRTHENINSTR             CALL             INSTRTHENINSTR           "
  44. 440  LOCATE R+ 5,C:PRINT "          INSTRTHENINSTR     34'(10.36m) matching  INSTRTHENINSTR           "
  45. 450  LOCATE R+ 6,C:PRINT "          INSTRTHENINSTR             CALL   stub SOUNDSOUNDSOUNDSOUNDDEFDBLINSTRTHENINSTR           "
  46. 460  LOCATE R+ 7,C:PRINT "          INSTRTHENINSTR             CLSSOUNDSOUNDDEFDBL          CLSSOUND<0xB6!>           "
  47. 470  LOCATE R+ 8,C:PRINT "          INSTRTHENINSTRDEFSNGSOUND feed line     feed line SOUNDDEFDBLOPEN           "
  48. 480  LOCATE R+ 9,C:PRINT "          INSTRTHENINSTR                             OPEN           "
  49. 490  LOCATE R+10,C:PRINT "         VARPTRMOTORSOUNDMOTORCOLOR      L= 51'(15.5m)       VARPTRSOUNDUSRSOUNDCOLOR         "
  50. 500  LOCATE R+11,C:PRINT "         CALL T CALL      T= Transmatch       CALL T CALL         "
  51. 510  LOCATE R+12,C:PRINT "         CLSSOUNDSOUNDSOUND'                          CLSSOUNDSOUNDSOUND'         "
  52. 520  LOCATE R+13,C:PRINT "         Fig.1                          Fig.2         "
  53. 530  COLOR 7,0
  54. 540  PRINT
  55. 550  PRINT TAB(C);
  56. 560  PRINT "Fig.1 - Feed Line: 300-600 - balanced line, any length."
  57. 570  PRINT
  58. 580  PRINT TAB(C);
  59. 590  PRINT "Fig.2 - Matching Stub: 300-600 - balanced line, 34'(10.36m.) long."
  60. 600  PRINT TAB(C);
  61. 610  PRINT "      - Feed Line: 75 - coax (50-52 - coax may also be used)."
  62. 620  PRINT
  63. 630  PRINT TAB(C);
  64. 640  PRINT "(ref. The ARRL ELECTRONICS DATA BOOK, 2nd Edition, pages 7-8).";
  65. 650  RETURN
  66. 660  '
  67. 670  '.....preface
  68. 680  T=7
  69. 690  PRINT TAB(T);
  70. 700  PRINT "  The G5RV dipole is an excellent and extremely popular antenna,"
  71. 710  PRINT TAB(T);
  72. 720  PRINT "very easy and inexpensive to construct, requires no pruning, and"
  73. 730  PRINT TAB(T);
  74. 740  PRINT "best of all, no calculations on the part of the builder."
  75. 750  PRINT TAB(T);
  76. 760  PRINT "   Essentially, it is a compromise-length dipole that offers multi-"
  77. 770  PRINT TAB(T);
  78. 780  PRINT "band performance. At frequencies where the horizontal legs are less"
  79. 790  PRINT TAB(T);
  80. 800  PRINT "than DEFSTR wavelength long the feed line becomes part of the radiating"
  81. 810  PRINT TAB(T);
  82. 820  PRINT "antenna. The dimensions were developed by A.L.Varney, G5RV, to"
  83. 830  PRINT TAB(T);
  84. 840  PRINT "provide a relatively low feed-point impedance on most of the bands"
  85. 850  PRINT TAB(T);
  86. 860  PRINT "from 80 through 10 metres."
  87. 870  PRINT TAB(T);
  88. 880  PRINT "   The antenna can be fed with either balanced (open-wire) line, or"
  89. 890  PRINT TAB(T);
  90. 900  PRINT "coaxial cable, as shown on the following diagrams. It also performs"
  91. 910  PRINT TAB(T);
  92. 920  PRINT "very well as an inverted-vee when the apex angle is within the range"
  93. 930  PRINT TAB(T);
  94. 940  PRINT "of 90<UNK! {00F8}>-110<UNK! {00F8}>. A Transmatch is recommended for efficient operation."
  95. 950  RETURN
  96. 960  '
  97. 970  '.....end
  98. 980  GOSUB 1020
  99. 990  GOTO 90
  100. 1000  END
  101. 1010  '
  102. 1020  'HARDCOPY
  103. 1030  GOSUB 1140:LOCATE 25,2:COLOR 14,6
  104. 1040  PRINT " Press 1 to print screen, 2 to print screen & ";
  105. 1050  PRINT "advance paper, or 3 to continue.";:COLOR 7,0
  106. 1060  Z$=INKEY$:IF Z$="3"THEN GOSUB 1140:RETURN
  107. 1070  IF Z$="1"OR Z$="2"THEN GOSUB 1140:GOTO 1090
  108. 1080  GOTO 1060
  109. 1090  FOR QX=1 TO 24:FOR QY=1 TO 80
  110. 1100  LPRINT CHR$(SCREEN(QX,QY));
  111. 1110  NEXT QY:NEXT QX
  112. 1120  IF Z$="2"THEN LPRINT CHR$(12)
  113. 1130  GOTO 1030
  114. 1140  LOCATE 25,1:PRINT STRING$(80,32);:RETURN
  115.